home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Developer's Kit 1996
/
Delphi Developer's Kit 1996.iso
/
power
/
dirvcl
/
tstdirec.dfm
/
tstdirec.txt
Wrap
Text File
|
1995-12-22
|
7KB
|
328 lines
object Form1: TForm1
Tag = 25
Left = 347
Top = 119
Width = 567
Height = 500
ActiveControl = BtnFind
Caption = 'Directory Test'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 96
Position = poScreenCenter
OnCreate = FormCreate
OnResize = FormResize
TextHeight = 16
object LblFileMask: TLabel
Left = 26
Top = 381
Width = 68
Height = 16
Caption = 'File &Mask'
end
object LblSearch: TLabel
Left = 11
Top = 147
Width = 45
Height = 16
Caption = 'Search'
end
object LblVersion: TLabel
Left = 26
Top = 413
Width = 236
Height = 16
Caption = 'LblVersion'
end
object LblInitialDir: TLabel
Left = 10
Top = 230
Width = 59
Height = 16
Caption = 'InitialDir:'
end
object LblDirMask: TLabel
Left = 312
Top = 381
Width = 58
Height = 16
Caption = 'Dir Mask'
end
object LblCurrentDir: TLabel
Left = 26
Top = 446
Width = 82
Height = 16
Caption = 'Current Dir : '
end
object LbxResults: TListBox
Left = 11
Top = 8
Width = 539
Height = 124
TabStop = False
ExtendedSelect = False
ItemHeight = 16
TabOrder = 0
end
object BtnFind: TButton
Left = 313
Top = 408
Width = 62
Height = 27
Caption = '&Find'
Default = True
TabOrder = 1
OnClick = BtnFindClick
end
object BtnQuit: TButton
Left = 483
Top = 408
Width = 62
Height = 27
Caption = '&Quit'
TabOrder = 3
OnClick = BtnQuitClick
end
object BtnCancel: TButton
Left = 398
Top = 408
Width = 62
Height = 27
Caption = '&Cancel'
Enabled = False
TabOrder = 2
OnClick = BtnCancelClick
end
object EdFileMask: TEdit
Left = 101
Top = 377
Width = 170
Height = 24
MaxLength = 11
TabOrder = 10
Text = 'WWWWWWWW.WWW'
OnExit = EdFileMaskExit
end
object TbNbSelections: TTabbedNotebook
Left = 153
Top = 140
Width = 397
Height = 230
TabFont.Color = clBtnText
TabFont.Height = -12
TabFont.Name = 'MS Sans Serif'
TabFont.Style = []
TabOrder = 4
object TTabPage
Left = 5
Top = 26
Caption = 'Fi&les'
object Chkbxfilehidden: TCheckBox
Left = 32
Top = 50
Width = 79
Height = 17
Caption = '&hidden'
TabOrder = 0
OnClick = ChkbxfilehiddenClick
end
object Chkbxfilesystem: TCheckBox
Left = 227
Top = 50
Width = 79
Height = 17
Caption = 's&ystem'
TabOrder = 1
OnClick = ChkbxfilesystemClick
end
object ChkbxfileVolume: TCheckBox
Left = 31
Top = 75
Width = 90
Height = 17
Caption = 'Vol&ume'
TabOrder = 2
OnClick = ChkbxfileVolumeClick
end
object Chkbxfileexcarchive: TCheckBox
Left = 152
Top = 165
Width = 79
Height = 17
Caption = 'archi&ve'
TabOrder = 3
OnClick = ChkbxfileexcarchiveClick
end
object ChkbxfileExcNormal: TCheckBox
Left = 262
Top = 165
Width = 68
Height = 17
Caption = '&normal'
TabOrder = 4
OnClick = ChkbxfileExcNormalClick
end
object Chkbxexcfilereadonly: TCheckBox
Left = 26
Top = 165
Width = 79
Height = 17
Caption = '&readonly'
TabOrder = 5
OnClick = ChkbxexcfilereadonlyClick
end
object Chkbxfiledirectory: TCheckBox
Left = 227
Top = 75
Width = 79
Height = 17
Caption = '&directory'
TabOrder = 6
OnClick = ChkbxfiledirectoryClick
end
end
object TTabPage
Left = 5
Top = 26
Caption = 'Direct&ories (search)'
object Chkbxdirhidden: TCheckBox
Left = 62
Top = 65
Width = 79
Height = 17
Caption = '&hidden'
TabOrder = 0
OnClick = ChkbxdirhiddenClick
end
object Chkbxdirsystem: TCheckBox
Left = 247
Top = 65
Width = 79
Height = 17
Caption = 's&ystem'
TabOrder = 1
OnClick = ChkbxdirsystemClick
end
object Chkbxdirexcreadonly: TCheckBox
Left = 31
Top = 150
Width = 79
Height = 17
Caption = 'r&eadonly'
TabOrder = 2
OnClick = ChkbxdirexcreadonlyClick
end
object Chkbxdirexcarchive: TCheckBox
Left = 152
Top = 150
Width = 79
Height = 17
Caption = 'archi&ve'
TabOrder = 3
OnClick = ChkbxdirexcarchiveClick
end
object ChkbxdirexcNormal: TCheckBox
Left = 272
Top = 150
Width = 68
Height = 17
Caption = '&normal'
TabOrder = 4
OnClick = ChkbxdirexcNormalClick
end
end
end
object ChkbxWithSubDir: TCheckBox
Left = 11
Top = 170
Width = 135
Height = 17
Caption = '&In Subdirectories'
TabOrder = 7
OnClick = ChkbxWithSubDirClick
end
object PnlInclusions: TPanel
Left = 178
Top = 179
Width = 361
Height = 28
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = 'Inclusions'
TabOrder = 5
end
object PnlExclusions: TPanel
Left = 178
Top = 272
Width = 361
Height = 28
BevelInner = bvLowered
BevelOuter = bvLowered
Caption = 'Exclusions'
TabOrder = 6
end
object ChkbxOnlyDir: TCheckBox
Left = 11
Top = 205
Width = 140
Height = 17
Caption = '&Only Directories'
TabOrder = 8
OnClick = ChkbxOnlyDirClick
end
object DirectoryListBox1: TDirectoryListBox
Left = 5
Top = 250
Width = 145
Height = 117
ItemHeight = 16
TabOrder = 9
OnChange = DirectoryListBox1Change
end
object EdDirMask: TEdit
Left = 382
Top = 377
Width = 166
Height = 24
MaxLength = 11
TabOrder = 11
Text = 'WWWWWWWW.WWW'
OnExit = EdDirMaskExit
end
object EdCurrentDir: TEdit
Left = 120
Top = 442
Width = 426
Height = 24
ReadOnly = True
TabOrder = 12
Text = 'EdCurrentDir'
end
object Directory1: TDirectory
Version = 'V 1.5d - 16/05/95'
OnFound = Directory1Found
OnSearchStatus = Directory1SearchStatus
ExcludeNormalFiles = False
ExcludeReadOnlyFiles = False
ExcludeArchiveFiles = False
IncludeHiddenFiles = False
IncludeSystemFiles = False
IncludeVolumeID = False
IncludeDirectoryFiles = False
ExcludeNormalDir = False
ExcludeReadOnlyDir = False
ExcludeArchiveDir = False
IncludeHiddenDir = False
IncludeSystemDir = False
InSubDirectories = False
OnlyDirectories = False
FileFilter = '*.*'
DirectoryFilter = '*.*'
Left = 110
Top = 135
end
end